home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / HILBERT.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-05-09  |  1.0 KB  |  37 lines
  1. 1  GOTO 1000
  2. 2  REM *************************
  3. 3  REM *    HILBERT        *
  4. 4  REM *               *
  5. 5  REM *  BY MICHAEL ACKERMAN  *
  6. 6  REM *               *
  7. 7  REM *    8/27/85        *
  8. 8  REM *************************
  9. 100 RDER = RDER - 1
  10. 110 TURN =  - TURN
  11. 120 TEMP = DY:DY =  - TURN * DX:DX = TURN * TEMP
  12. 130  IF RDER > 0 THEN  GOSUB 100
  13. 140 X = X + DX:Y = Y + DY: HPLOT  TO X,Y
  14. 150 TURN =  - TURN
  15. 160 TEMP = DY:DY =  - TURN * DX:DX = TURN * TEMP
  16. 170  IF RDER > 0 THEN  GOSUB 100
  17. 180 X = X + DX:Y = Y + DY: HPLOT  TO X,Y
  18. 190  IF RDER > 0 THEN  GOSUB 100
  19. 200 TEMP = DY:DY =  - TURN * DX:DX = TURN * TEMP
  20. 210 TURN =  - TURN
  21. 220 X = X + DX:Y = Y + DY: HPLOT  TO X,Y
  22. 230  IF RDER > 0 THEN  GOSUB 100
  23. 240 TEMP = DY:DY =  - TURN * DX:DX = TURN * TEMP
  24. 250 TURN =  - TURN
  25. 260 RDER = RDER + 1
  26. 270  RETURN 
  27. 1000  TEXT : HGR : HCOLOR= 3: INPUT"ORDER <1-7>";RDER
  28. 1010  POKE 49234,1
  29. 1020 DY = 192 / 2 ^ RDER
  30. 1030 TURN =  - 1
  31. 1040 DX = X = Y = 0
  32. 1050  HPLOT X,Y
  33. 1060  GOSUB 100
  34. 1070  END 
  35.  
  36. POKE 49234,1
  37. 1020 DY = 192